;Assembler header file for ZapRedraw
;written by DefMod (Dec 31 2005) on Sat Dec 31 14:11:43 2005
;Christian Ludlam, <chris@recoil.org> 09-Feb-02 23:39

        [       :LNOT: :DEF: ZapRedraw_Hdr
        GBLS    ZapRedraw_Hdr

        [       :LNOT: :DEF: Get_Types
        GBLS    Get_Types
        ]
        [       :LNOT: :DEF: Types_Hdr
Get_Types                       SETS    "GET oslib/Types.Hdr"
        |
Get_Types                       SETS    ""
        ]
        $Get_Types

        [       :LNOT: :DEF: Get_OS
        GBLS    Get_OS
        ]
        [       :LNOT: :DEF: OS_Hdr
Get_OS                          SETS    "GET oslib/OS.Hdr"
        |
Get_OS                          SETS    ""
        ]
        $Get_OS

        [       :LNOT: :DEF: Get_Wimp
        GBLS    Get_Wimp
        ]
        [       :LNOT: :DEF: Wimp_Hdr
Get_Wimp                        SETS    "GET oslib/Wimp.Hdr"
        |
Get_Wimp                        SETS    ""
        ]
        $Get_Wimp

        [       :LNOT: :DEF: Get_Font
        GBLS    Get_Font
        ]
        [       :LNOT: :DEF: Font_Hdr
Get_Font                        SETS    "GET oslib/Font.Hdr"
        |
Get_Font                        SETS    ""
        ]
        $Get_Font

;Symbols for constants
ZapRedraw_DSA                   *       &0
ZapRedraw_VDU                   *       &1
ZapRedraw_DoubleHeight          *       &2
ZapRedraw_GivenExtensionRoutine *       &4
ZapRedraw_Substyles             *       &8
ZapRedraw_FastRectangles        *       &10
ZapRedraw_AutoScale             *       &20
ZapRedraw_Extend                *       &40
ZapRedraw_RtoL                  *       &80
ZapRedraw_Transparent           *       &100
ZapRedraw_AASuppress            *       &200
ZapRedraw_16Bit                 *       &400
ZapRedraw_32Bit                 *       &800
ZapRedraw_SmallColours          *       &1000
ZapRedraw_Normal                *       &0
ZapRedraw_Strikethrough         *       &1
ZapRedraw_Inverse               *       &8
ZapRedraw_Bold                  *       &20
ZapRedraw_Italic                *       &40
ZapRedraw_Underlined            *       &80
ZapRedrawEcoding_UTF8           *       &1
ZapRedrawEcoding_UTF16          *       &2
ZapRedraw_Command               *       &00
ZapRedraw_CommandNull           *       &00
ZapRedraw_CommandSetColours     *       &01
ZapRedraw_CommandEOL            *       &02
ZapRedraw_Command16bitChar      *       &03
ZapRedraw_CommandMerge          *       &04
ZapRedraw_CommandReserved       *       &05
ZapRedraw_CommandSetFG          *       &06
ZapRedraw_CommandSetBG          *       &07
ZapRedraw_CommandCursorMerge    *       &08
ZapRedraw_CommandSetStyle       *       &09
ZapRedraw_CommandSetStyleCol    *       &0A
ZapRedraw_CommandSetChunk       *       &0B
ZapRedraw_CommandSetChunkLong   *       &0C
ZapRedraw_CommandDelete         *       &7F
ZapRedraw_NewRaster             *       &0
ZapRedraw_SetColours            *       &1
ZapRedraw_Merge                 *       &4
ZapRedraw_SetFG                 *       &6
ZapRedraw_SetBG                 *       &7
ZapRedraw_CursorMerge           *       &8
ZapRedraw_SetStyle              *       &9
ZapRedraw_SetStyleColours       *       &A
ZapRedraw_SetChunk              *       &B
ZapRedraw_SetLargeChunk         *       &C
ZapRedrawCreatePalette_WimpToVDU *       &1
ZapRedrawCreatePalette_VDUToDSA *       &2
ZapRedrawSpriteSizeReason_PassOne *       &0
ZapRedrawSpriteSizeReason_PassTwo *       &80
ZapRedraw_MatchForColourShift   *       8
ZapRedraw_MatchFor              *       &40000000
ZapRedraw_MatchBac              *       &80000000
ZapRedraw_CursorHighByteShift   *       0
ZapRedraw_CursorForShift        *       24
ZapRedraw_CursorMergeCharacter  *       &400
ZapRedraw_CursorMergeCursor     *       &800
ZapRedrawFindFont_DSA           *       &0
ZapRedrawFindFont_VDU           *       &1
ZapRedrawFindFont_ReductionBlock *       &2
ZapRedrawReadCharSize_Pixels    *       &0
ZapRedrawReadCharSize_OS        *       &1
ZapRedrawReadCharSize_Linesp    *       &2
ZapRedrawReadCharSize_Scale     *       &4

;Symbols for structure offsets and sizes
                                ^       0
                                #       Bits
ZapRedraw_Flags                 *       @

ZapRedraw_F                     *       4 ;abstract type
ZapRedraw_E                     *       4 ;abstract type
                                ^       0
                                #       Ptr
ZapRedraw_CharCache             *       @

                                ^       0
                                #       Byte
ZapRedraw_Colour                *       @

                                ^       0
                                #       Char
ZapRedraw_Substyle              *       @

                                ^       0
                                #       256*Bits
ZapRedraw_EncodingTable         *       @


                                ^       0
ZapRedraw_DSABlock_flags        #       ZapRedraw_Flags
ZapRedraw_DSABlock_box          #       OS_Box
ZapRedraw_DSABlock_screen       #       Ptr
ZapRedraw_DSABlock_bpl          #       Int
ZapRedraw_DSABlock_log2_bpp     #       Int
ZapRedraw_DSABlock_charw        #       Int
ZapRedraw_DSABlock_charh        #       Int
ZapRedraw_DSABlock_caddr        #       Ptr
ZapRedraw_DSABlock_cbpl         #       Int
ZapRedraw_DSABlock_cbpc         #       Int
ZapRedraw_DSABlock_linesp       #       Int
ZapRedraw_DSABlock_data         #       Ptr
ZapRedraw_DSABlock_scrollx      #       Int
ZapRedraw_DSABlock_scrolly      #       Int
ZapRedraw_DSABlock_palette      #       Ptr
ZapRedraw_DSABlock_fg           #       Int
ZapRedraw_DSABlock_bg           #       Int
ZapRedraw_DSABlock_workarea     #       Ptr
ZapRedraw_DSABlock_magx         #       Int
ZapRedraw_DSABlock_magy         #       Int
ZapRedraw_DSABlock_xsize        #       Int
ZapRedraw_DSABlock_ysize        #       Int
ZapRedraw_DSABlock_mode         #       OS_Mode
ZapRedraw_DSABlock_length       #       Int
ZapRedraw_DSABlock_lmargin      #       Int
ZapRedraw_DSABlock_tmargin      #       Int
ZapRedraw_DSABlock_encoding     #       ZapRedraw_E
ZapRedraw_DSABlock              *       @

                                ^       0
ZapRedraw_VDUBlock_flags        #       ZapRedraw_Flags
ZapRedraw_VDUBlock_box          #       OS_Box
ZapRedraw_VDUBlock_reserved0    #       Ptr
ZapRedraw_VDUBlock_reserved1    #       Int
ZapRedraw_VDUBlock_log2_bpp     #       Int
ZapRedraw_VDUBlock_charw        #       Int
ZapRedraw_VDUBlock_charh        #       Int
ZapRedraw_VDUBlock_caddr        #       Ptr
ZapRedraw_VDUBlock_offsetx      #       Int
ZapRedraw_VDUBlock_offsety      #       Int
ZapRedraw_VDUBlock_linesp       #       Int
ZapRedraw_VDUBlock_data         #       Ptr
ZapRedraw_VDUBlock_scrollx      #       Int
ZapRedraw_VDUBlock_scrolly      #       Int
ZapRedraw_VDUBlock_palette      #       Ptr
ZapRedraw_VDUBlock_fg           #       Int
ZapRedraw_VDUBlock_bg           #       Int
ZapRedraw_VDUBlock_workarea     #       Ptr
ZapRedraw_VDUBlock_magx         #       Int
ZapRedraw_VDUBlock_magy         #       Int
ZapRedraw_VDUBlock_xsize        #       Int
ZapRedraw_VDUBlock_ysize        #       Int
ZapRedraw_VDUBlock_mode         #       OS_Mode
ZapRedraw_VDUBlock_length       #       Int
ZapRedraw_VDUBlock_lmargin      #       Int
ZapRedraw_VDUBlock_tmargin      #       Int
ZapRedraw_VDUBlock_encoding     #       ZapRedraw_E
ZapRedraw_VDUBlock              *       @

                                ^       0
ZapRedraw_FontBlock_flags       #       ZapRedraw_Flags
ZapRedraw_FontBlock_box         #       OS_Box
ZapRedraw_FontBlock_screen      #       Ptr
ZapRedraw_FontBlock_bpl         #       Int
ZapRedraw_FontBlock_log2_bpp    #       Int
ZapRedraw_FontBlock_charw       #       Int
ZapRedraw_FontBlock_charh       #       Int
ZapRedraw_FontBlock_font        #       ZapRedraw_F
ZapRedraw_FontBlock_cbpl        #       Int
ZapRedraw_FontBlock_cbpc        #       Int
ZapRedraw_FontBlock_linesp      #       Int
ZapRedraw_FontBlock_data        #       Ptr
ZapRedraw_FontBlock_scrollx     #       Int
ZapRedraw_FontBlock_scrolly     #       Int
ZapRedraw_FontBlock_palette     #       Ptr
ZapRedraw_FontBlock_fg          #       Int
ZapRedraw_FontBlock_bg          #       Int
ZapRedraw_FontBlock_workarea    #       Ptr
ZapRedraw_FontBlock_magx        #       Int
ZapRedraw_FontBlock_magy        #       Int
ZapRedraw_FontBlock_xsize       #       Int
ZapRedraw_FontBlock_ysize       #       Int
ZapRedraw_FontBlock_mode        #       OS_Mode
ZapRedraw_FontBlock_length      #       Int
ZapRedraw_FontBlock_lmargin     #       Int
ZapRedraw_FontBlock_tmargin     #       Int
ZapRedraw_FontBlock_encoding    #       ZapRedraw_E
ZapRedraw_FontBlock             *       @

                                ^       0
ZapRedraw_Block_vdu             #       ZapRedraw_VDUBlock
                                ^       0
ZapRedraw_Block_dsa             #       ZapRedraw_DSABlock
                                ^       0
ZapRedraw_Block_font            #       ZapRedraw_FontBlock
ZapRedraw_Block                 *       @

                                ^       0
ZapRedraw_DSAPalette_dup_colour #       Bits
ZapRedraw_DSAPalette            *       @

                                ^       0
ZapRedraw_VDUPalette_colour     #       OS_Colour
ZapRedraw_VDUPalette            *       @

                                ^       0
ZapRedraw_Palette_vdu           #       ZapRedraw_VDUPalette
                                ^       0
ZapRedraw_Palette_dsa           #       ZapRedraw_DSAPalette
ZapRedraw_Palette               *       @

                                ^       0
                                #       Int
ZapRedraw_Reason                *       @

                                ^       0
                                #       Bits
ZapRedrawCreatePalette_Flags    *       @

                                ^       0
                                #       Bits
ZapRedrawSpriteSize_Reason      *       @

                                ^       0
                                #       Bits
ZapRedraw_AddCursorMatch        *       @

                                ^       0
                                #       Bits
ZapRedraw_AddCursorCursor       *       @

                                ^       0
                                #       Bits
ZapRedrawFindFont_Flags         *       @

ZapRedraw_ReductionBlock        *       OS_Box

                                ^       0
                                #       Bits
ZapRedrawReadCharSize_Flags     *       @


;Symbols for SWI's and SWI reason codes
XZapRedraw_RedrawArea           *       &68480
ZapRedraw_RedrawArea            *       &48480
   ;Entry
   ;  R1 -> redraw_block (ZapRedraw_Block)
   ;  R2 -> extension_fn (code)
   ;  R3 = extension_handle (pointer to Void)
   ;Exit
   ;  R0 corrupted

XZapRedraw_GetPaletteEntry      *       &68481
ZapRedraw_GetPaletteEntry       *       &48481
   ;Entry
   ;  R0 = colour_number (OS_ColourNumber)
   ;  R1 = bpp (Int)
   ;Exit
   ;  R0 = dup_colour (Int)

XZapRedraw_RedrawRaster         *       &68482
ZapRedraw_RedrawRaster          *       &48482

XZapRedraw_ConvertBitmap        *       &68483
ZapRedraw_ConvertBitmap         *       &48483
   ;Entry
   ;  R1 -> redraw_block (ZapRedraw_Block)
   ;  R2 = first (Int)
   ;  R3 = last (Int)
   ;  R4 = bitmaps (ZapRedraw_CharCache)
   ;Exit
   ;  R0 corrupted

XZapRedraw_PrepareDataLine      *       &68484
ZapRedraw_PrepareDataLine       *       &48484
   ;Entry
   ;  R0 = ctrl_colour (ZapRedraw_Colour)
   ;  R1 -> redraw_block (ZapRedraw_Block)
   ;  R2 -> input (String)
   ;  R3 -> fg (ZapRedraw_Colour)
   ;  R4 -> bg (ZapRedraw_Colour)
   ;  R5 = length (Int)
   ;  R6 = output (pointer to String)
   ;  R7 -> substyles (ZapRedraw_Substyle)
   ;Exit
   ;  R0 = highest (Int)
   ;  R5 = length_out (Int)

XZapRedraw_AddCursor            *       &68485
ZapRedraw_AddCursor             *       &48485

XZapRedraw_FindCharacter        *       &68486
ZapRedraw_FindCharacter         *       &48486
   ;Entry
   ;  R0 = count (Int)
   ;  R1 -> input (String)
   ;  R2 = fg (ZapRedraw_Colour)
   ;  R3 = bg (ZapRedraw_Colour)
   ;  R4 = style (ZapRedraw_Substyle)
   ;Exit
   ;  R0 -> something (String)
   ;  R1 -> next_char (String)
   ;  R2 = fg_out (ZapRedraw_Colour)
   ;  R3 = bg_out (ZapRedraw_Colour)
   ;  R4 = style_out (ZapRedraw_Substyle)

XZapRedraw_MoveBytes            *       &68487
ZapRedraw_MoveBytes             *       &48487
   ;Entry
   ;  R1 -> source (Byte)
   ;  R2 = dest (pointer to Byte)
   ;  R3 = length (Int)
   ;Exit
   ;  R0 corrupted
   ;  R1 corrupted
   ;  R2 corrupted
   ;  R3 corrupted

XZapRedraw_CachedCharSize       *       &68488
ZapRedraw_CachedCharSize        *       &48488
   ;Entry
   ;  R0 = bpp (Int)
   ;  R2 = charw (Int)
   ;  R3 = charh (Int)
   ;Exit
   ;  R0 corrupted
   ;  R2 = cbpl (Int)
   ;  R3 = cbpc (Int)

XZapRedraw_ConvBitmapChar       *       &68489
ZapRedraw_ConvBitmapChar        *       &48489
   ;Entry
   ;  R1 -> redraw_block (ZapRedraw_Block)
   ;  R2 = source_bpl (Int)
   ;  R3 = dest_bpl (Int)
   ;  R4 = source_bitmap (ZapRedraw_CharCache)
   ;  R5 = dest_bitmap (ZapRedraw_CharCache)
   ;  R6 = bit_mask (Bits)
   ;  R7 = bpp (Int)
   ;Exit
   ;  R0 corrupted
   ;  R4 = next_source (ZapRedraw_CharCache)
   ;  R5 = next_dest (ZapRedraw_CharCache)

XZapRedraw_CreatePalette        *       &6848A
ZapRedraw_CreatePalette         *       &4848A
   ;Entry
   ;  R0 = flags (ZapRedrawCreatePalette_Flags)
   ;  R1 -> redraw_block (ZapRedraw_Block)
   ;  R2 -> in (ZapRedraw_Palette)
   ;  R3 = out (pointer to ZapRedraw_Palette)
   ;  R4 = number (Int)
   ;Exit
   ;  R0 corrupted

XZapRedraw_InsertChar           *       &6848B
ZapRedraw_InsertChar            *       &4848B
   ;Entry
   ;  R0 = c (Int)
   ;  R1 = address (pointer to String)
   ;Exit
   ;  R0 corrupted
   ;  R1 -> address_out (String)

XZapRedraw_ReadSystemChars      *       &6848C
ZapRedraw_ReadSystemChars       *       &4848C
   ;Entry
   ;  R0 = buffer (ZapRedraw_CharCache)
   ;  R1 -> redraw_block (ZapRedraw_Block)
   ;Exit
   ;  R0 corrupted

XZapRedraw_ReverseBitmaps       *       &6848D
ZapRedraw_ReverseBitmaps        *       &4848D
   ;Entry
   ;  R1 = source (ZapRedraw_CharCache)
   ;  R2 = dest (ZapRedraw_CharCache)
   ;  R3 = number (Int)
   ;Exit
   ;  R0 corrupted

XZapRedraw_ReadVduVars          *       &6848E
ZapRedraw_ReadVduVars           *       &4848E
   ;Entry
   ;  R1 = redraw_block (pointer to ZapRedraw_Block)
   ;Exit
   ;  R0 corrupted

XZapRedraw_GetRectangle         *       &6848F
ZapRedraw_GetRectangle          *       &4848F
   ;Entry
   ;  R0 -> wimp_block (Wimp_Draw)
   ;  R1 = redraw_block (pointer to ZapRedraw_Block)
   ;Exit
   ;  R0 corrupted

XZapRedraw_AddVduBitmaps        *       &68490
ZapRedraw_AddVduBitmaps         *       &48490
   ;Entry
   ;  R1 -> redraw_block (ZapRedraw_Block)
   ;  R2 = first (Int)
   ;  R3 = last (Int)
   ;  R4 = address (ZapRedraw_CharCache)
   ;Exit
   ;  R0 corrupted

XZapRedraw_CacheFontChars       *       &68491
ZapRedraw_CacheFontChars        *       &48491

ZapRedrawCacheFontChars_CurrentMode *       &1
   ;Entry
   ;  R0 = &1
   ;  R1 -> redraw_block (ZapRedraw_Block)
   ;  R2 -> font_name (String)
   ;  R3 = size (Int)
   ;  R4 = xoff (Int)
   ;  R5 = yoff (Int)
   ;  R6 = first (Int)
   ;  R7 = last (Int)
   ;Exit
   ;  R0 corrupted

ZapRedrawCacheFontChars_1bpp    *       &2
   ;Entry
   ;  R0 = &2
   ;  R1 -> redraw_block (ZapRedraw_Block)
   ;  R2 -> font_name (String)
   ;  R3 = size (Int)
   ;  R4 = xoff (Int)
   ;  R5 = yoff (Int)
   ;  R6 = first (Int)
   ;  R7 = last (Int)
   ;Exit
   ;  R0 corrupted

XZapRedraw_SpriteSize           *       &68492
ZapRedraw_SpriteSize            *       &48492

ZapRedrawSpriteSize_CurrentMode *       &1
   ;Entry
   ;  R0 = &1 :OR: pass (ZapRedrawSpriteSize_Reason)
   ;  R1 -> redraw_block (ZapRedraw_Block)
   ;Exit
   ;  R0 = size (Int)

ZapRedrawSpriteSize_1bpp        *       &2
   ;Entry
   ;  R0 = &2 :OR: pass (ZapRedrawSpriteSize_Reason)
   ;  R1 -> redraw_block (ZapRedraw_Block)
   ;Exit
   ;  R0 = size (Int)

XZapRedraw_RedrawWindow         *       &68493
ZapRedraw_RedrawWindow          *       &48493
   ;Entry
   ;  R0 -> wimp_block (Wimp_Draw)
   ;  R1 -> redraw_block (ZapRedraw_Block)
   ;Exit
   ;  R0 corrupted

XZapRedraw_Divide               *       &68494
ZapRedraw_Divide                *       &48494
   ;Entry
   ;  R0 = numerator (Bits)
   ;  R1 = denominator (Bits)
   ;Exit
   ;  R0 = div (Bits)
   ;  R1 corrupted
   ;  R2 = mod (Bits)
   ;  R3 corrupted

XZapRedraw_PlotRectangle        *       &68495
ZapRedraw_PlotRectangle         *       &48495
   ;Entry
   ;  R0 = x0 (Int)
   ;  R1 = y0 (Int)
   ;  R2 = x1 (Int)
   ;  R3 = y1 (Int)
   ;  R4 = colour (OS_ColourNumber)
   ;Exit
   ;  R0 corrupted
   ;  R1 corrupted
   ;  R2 corrupted
   ;  R3 corrupted
   ;  R4 corrupted
   ;  R5 corrupted
   ;  R6 corrupted
   ;  R7 corrupted
   ;  R8 corrupted

XZapRedraw_AddCursorSmart       *       &68496
ZapRedraw_AddCursorSmart        *       &48496
   ;Entry
   ;  R0 = dest (pointer to String)
   ;  R1 -> redraw_block (ZapRedraw_Block)
   ;  R2 = offset (Int)
   ;  R3 = length (Int)
   ;  R4 -> cursors (String)
   ;  R5 -> source (String)
   ;  R6 = match (ZapRedraw_AddCursorMatch)
   ;  R7 = cursor (ZapRedraw_AddCursorCursor)
   ;Exit
   ;  R0 -> end (String)

XZapRedraw_FindFont             *       &68497
ZapRedraw_FindFont              *       &48497
   ;Entry
   ;  R0 -> name (String)
   ;  R1 = flags (ZapRedrawFindFont_Flags)
   ;  R2 = size (Int)
   ;  R3 = aspect (Int)
   ;  R4 -> block (ZapRedraw_ReductionBlock)
   ;Exit
   ;  R0 = handle (ZapRedraw_F)

XZapRedraw_LoseFont             *       &68498
ZapRedraw_LoseFont              *       &48498
   ;Entry
   ;  R0 = handle (ZapRedraw_F)
   ;Exit
   ;  R0 corrupted

XZapRedraw_ReadCharSize         *       &68499
ZapRedraw_ReadCharSize          *       &48499
   ;Entry
   ;  R0 = handle (ZapRedraw_F)
   ;  R1 -> redraw_block (ZapRedraw_Block)
   ;  R2 = flags (ZapRedrawReadCharSize_Flags)
   ;Exit
   ;  R0 corrupted
   ;  R2 = charw (Int)
   ;  R3 = charh (Int)

XZapRedraw_Version              *       &6849A
ZapRedraw_Version               *       &4849A
   ;Exit
   ;  R0 = Version (Int)
   ;  R1 corrupted
   ;  R2 corrupted

XZapRedraw_ListFonts            *       &6849B
ZapRedraw_ListFonts             *       &4849B
   ;Entry
   ;  R1 = buffer1 (pointer to data)
   ;  R2 = context (Font_ListContext)
   ;  R3 = size1 (Int)
   ;  R4 = buffer2 (pointer to data)
   ;  R5 = size2 (Int)
   ;  R6 -> tick_font (String)
   ;Exit
   ;  R2 = context_out (Font_ListContext)
   ;  R3 = used1 (Int)
   ;  R5 = used2 (Int)

XZapRedraw_UpdateWindow         *       &6849C
ZapRedraw_UpdateWindow          *       &4849C
   ;Entry
   ;  R0 -> update (Wimp_Draw)
   ;  R1 -> redraw_block (ZapRedraw_Block)
   ;Exit
   ;  R0 corrupted

XZapRedraw_ReadFontInfo         *       &6849D
ZapRedraw_ReadFontInfo          *       &4849D

ZapRedraw_ReadFontName          *       &0
   ;Entry
   ;  R0 = &0
   ;  R1 = handle (ZapRedraw_F)
   ;Exit
   ;  R0 -> name (String)

XZapRedraw_ReadModeBPP          *       &6849E
ZapRedraw_ReadModeBPP           *       &4849E
   ;Exit
   ;  R0 = bpp (Int)

XZapRedraw_DecodeMenu           *       &6849F
ZapRedraw_DecodeMenu            *       &4849F
   ;Entry
   ;  R0 = flags (Font_DecodeFlags)
   ;  R1 -> menu (data)
   ;  R2 -> block (data)
   ;  R3 = buffer (pointer to data)
   ;  R4 = size (Int)
   ;Exit
   ;  R3 -> next_selection (Int)
   ;  R4 = used (Int)

XZapRedraw_Encoding             *       &684A0
ZapRedraw_Encoding              *       &484A0

XZapRedrawEncoding_Find         *       &684A0
ZapRedrawEncoding_Find          *       &484A0
   ;Entry
   ;  R0 = &0
   ;  R1 -> name (String)
   ;Exit
   ;  R0 = handle (ZapRedraw_E)

XZapRedrawEncoding_Lose         *       &684A0
ZapRedrawEncoding_Lose          *       &484A0
   ;Entry
   ;  R0 = &1
   ;  R1 = handle (ZapRedraw_E)
   ;Exit
   ;  R0 corrupted

XZapRedrawEncoding_Table        *       &684A0
ZapRedrawEncoding_Table         *       &484A0
   ;Entry
   ;  R0 = &2
   ;  R1 = handle (ZapRedraw_E)
   ;Exit
   ;  R0 -> table (ZapRedraw_EncodingTable)

        ]
        END
